$str = "this is a string";
@words = $str =~ m/\w[\w-]*/g;
print join "\n",@words;
print "\ntotal ".@words." words";
